program testArraySimple2;

class testArraySimple2

BEGIN
   
   VAR
      junk    : integer;
       values : ARRAY[4..13] OF integer; 
      padding : integer;
FUNCTION testArraySimple2;
BEGIN
   junk := 88;
   values[13] := junk;
   
   PRINT values[13];
   values[12] := 77;
   padding := 99;
   PRINT values[13]
END

END
.
